/_SS {/Symbol findfont exch scalefont setfont} bind def

/_SF { exch findfont exch scalefont setfont } bind def

/nrf { dup FontDirectory exch known { pop } { NoRecode } ifelse } def

/rf { dup FontDirectory exch known { pop } { Recode } ifelse } def

{ pop findfont CopyDictionary NewName exch definefont } if pop } def

/NoRecode { dup cvn /NewName exch def (|_) anchorsearch

/RecodeFont { dup FontDirectory exch known { pop } { Recode } ifelse } def

NewName exch definefont } if pop } def

{ pop findfont CopyDictionary dup /Encoding NewCodes put

/Recode { dup cvn /NewName exch def (|_) anchorsearch

{ 1 index /FID ne { NF 3 1 roll put } { pop pop } ifelse } forall NF } def

/CopyDictionary { dup maxlength dict /NF exch def

NewCodes 128 128 getinterval astore pop

/macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron

/apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde

/Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex

/Acircumflex /Ecircumflex /Aacute

/daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand

/ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl

/endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge

/guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe

/questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft

/product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash

/infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation

/registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash

/dagger /degree /cent /sterling /section /bullet /paragraph /germandbls

/ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis

/ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute

/agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave

/Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute

NewCodes 16#60 /grave put

NewCodes 16#27 /quotesingle put

putinterval

0 128 getinterval

StandardEncoding

NewCodes 0

/NewCodes 256 array def

/_ftName 66 string def